home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / FLOAT / FPABS.ASM < prev    next >
Assembly Source File  |  1989-01-24  |  2KB  |  68 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAIMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Last Update 5 Oct 87   Version 2.0
  7. ;
  8. ; Entry points: fabs_a  R = absolute value(A)
  9. ;               fabs_x  R = absolute value(X)
  10. ;
  11. ;       m = 24 bit mantissa (two's complement, normalized fraction)
  12. ;
  13. ;       e = 14 bit exponent (unsigned integer, biased by +8191)
  14. ;
  15. ; Input variables:
  16. ;
  17. ;   X   x1 = mx  (normalized)
  18. ;       x0 = ex
  19. ;
  20. ;   A   a2 = sign extension of ma
  21. ;       a1 = ma  (normalized)
  22. ;       a0 = zero
  23. ;
  24. ;       b2 = sign extension of ea (always zero)
  25. ;       b1 = ea
  26. ;       b0 = zero
  27. ;
  28. ; Output variables:
  29. ;
  30. ;   R   a2 = sign extension of mr
  31. ;       a1 = mr  (normalized)
  32. ;       a0 = zero
  33. ;
  34. ;       b2 = sign extension of er (always zero)
  35. ;       b1 = er
  36. ;       b0 = zero
  37. ;
  38. ; Error conditions:     Set CCR L=1 if floating point overflow.  Result
  39. ;                       is set to the maximum floating point value of the
  40. ;                       correct sign.  The CCR L bit remains set until
  41. ;                       cleared by the user.
  42. ;
  43. ;                       Set CCR L=1 if floating point underflow.  Result
  44. ;                       is set to floating point zero.  The CCR L bit
  45. ;                       remains set until cleared by the user.
  46. ;
  47. ; Assumes n0, m0, shift constant table and scaling modes
  48. ; initialized by previous call to the subroutine "fpinit".
  49. ;
  50. ; Alters Data ALU Registers
  51. ;       a2      a1      a0      a
  52. ;       b2      b1      b0      b
  53. ;       x1      x0      y1      y0
  54. ;
  55. ; Alters Address Registers
  56. ;       r0
  57. ;
  58. ; Alters Program Control Registers
  59. ;       pc      sr
  60. ;
  61. ; Uses 0 locations on System Stack
  62. ;
  63. ;
  64. fabs_x  tfr     x0,b    x1,a            ;get ex, mx
  65. fabs_a  tst     a                       ;check for negative ma
  66.         jmi     fneg_a                  ;negate if negative
  67.         rts
  68.